home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 24 / AACD 24.iso / AACD / Graphics / gif-toolkit / install / Install GIF-Toolkit < prev    next >
Encoding:
Text File  |  1996-11-27  |  9.1 KB  |  246 lines
  1. ; -------------------------------------------------------------------------
  2. ; $VER: GIF-Toolkit-Install 1.0 (3.11.96)
  3. ;
  4. ; Installer-Script for GIF-Toolkit V1.0
  5. ; Copyright © 1996 by Stephan Schupfer
  6.  
  7.  
  8. ;================================= ENGLISH ==================================
  9.  
  10. (set #install-start
  11.     (cat
  12.         "\nWelcome to the GIF-Toolkit installation utility!\n\n"
  13.         "This script installs GIF-Toolkit on your Amiga.\n"
  14.         "GIF-Toolkit is SHAREWARE. Using it means registering.\n"
  15.         "Read the docs for more info.\n\n"
  16.         "© 1996 by Stephan Schupfer\n"
  17.         "All rights reserved\n"
  18.         )
  19.     )
  20. (set #install-exit
  21.     (cat
  22.         "Thank you for installing GIF-Toolkit ...\n"
  23.         "... and remember: don't forget to register."
  24.         )
  25.     )
  26. (set #bad-kick "You must be using Kickstart 2.0 or higher to install GIF-Toolkit\n\n\n")
  27. (set #GIF-Toolkit-dir "\nWhere would you like to copy the GIF-Toolkit directory?")
  28. (set #GIF-Toolkit-docs "\nSelect documentation")
  29. (set #GIF-Toolkit-doc "\nInstall documentation")
  30. (set #GIF-Toolkit-cats "\nSelect catalog")
  31. (set #GIF-Toolkit-cat "\nInstall catalog")
  32. (set #Copy-main "\nInstall GIF-Toolkit main")
  33. (set #Copy-docs "\nInstall GIF-Toolkit Docs")
  34. (set #icons-help "This option is for people that have installed MagicWB.\n\nInstead of copying MagicWB icons over the original icons, you may select MagicWB here, and a special set of icons, especially designed for GIF-Toolkit will be installed.\n\nNOTE: MagicWB is Copyright © 1992-1994 by Martin Huttenloher.")
  35. (set #docs-help "GIF-Toolkit documentation:\n\n * Documentation in AmigaGuide format.\n   Read this document for more information about\n   GIF-Toolkit\n * Orderform\n   Use this to register GIF-Toolkit.")
  36. (set #cat-help "The default language of GIF-Toolkit is english. So if you don't install any catalog file, you can use GIF-Toolkit in english.\n\nUnfortunately there is only one language available at the moment. But this will (hopefully) change in future versions.")
  37. (set #text-main "\nDo you want to install GIF-Toolkit main file?")
  38. (set #text-docs "\nDo you want to install GIF-Toolkit documentation files?")
  39. (set #text-cat "\nDo you want to install GIF-Toolkit catalog files?")
  40. (set #imain-help "This installs the GIF-Toolkit main programm.")
  41. (set #idocs-help "This installs the documentation files, which we recommend to study.")
  42. (set #icat-help "Here you can select some other languages than the programmed english language.")
  43. (set default_language 1)
  44.  
  45. ;===[ German Documentation ]=================================================
  46.  
  47. (if (= @language "deutsch")
  48.     (
  49.     (set #install-start
  50.         (cat
  51.             "\nWillkommen zur GIF-Toolkit Installation\n\n"
  52.             "Es wird nun GIF-Toolkit auf Ihrem Amiga installiert.\n"
  53.             "GIF-Toolkit ist SHAREWARE. Lassen Sie sich registrieren.\n"
  54.             "Für weitere Informationen lesen Sie bitte die Anleitung\n\n"
  55.             "© 1996 by Stephan Schupfer\n"
  56.             "All rights reserved\n"
  57.             )
  58.         )
  59.     (set #install-exit
  60.         (cat
  61.             "Danke, daß Sie GIF-Toolkit installiert haben ...\n"
  62.             "... vergessen Sie nicht, sich registrieren zu lassen."
  63.             )
  64.         )
  65.     (set #bad-kick "Sie müssen Kickstart 2.0 oder höher verwenden um GIF-Toolkit zu installieren\n\n\n")
  66.     (set #GIF-Toolkit-dir "\nWohin soll das Verzeichnis GIF-Toolkit kopiert werden?")
  67.     (set #GIF-Toolkit-docs "\nWelche Dokumentation wünschen Sie?")
  68.     (set #GIF-Toolkit-doc "\ninstalliere Dokumentation")
  69.     (set #GIF-Toolkit-cats "\nWelche catalog Dateien wünschen Sie?")
  70.     (set #GIF-Toolkit-cat "\ninstalliere catalog Dateien")
  71.     (set #Copy-main "\ninstalliere GIF-Toolkit Hauptprogramm")
  72.     (set #Copy-docs "\ninstalliere GIF-Toolkit Dokumention")
  73.     (set #docs-help "Die Dokumentation von GIF-Toolkit:\n\n * Dokumentation im AmigaGuide format.\n   Für mehr Informationen über GIF-Toolkit, bitte lesen\n   Sie hier nach.\n * Bestellformular\n   Verwenden Sie dieses Formular um sich für GIF-Toolkit\n   registrieren zu lassen.")
  74.     (set #cat-help "GIF-Toolkit ist in Englisch programmiert. Sollten Sie eine andere Sprache bevorzugen so können Sie hier eine entsprechende catalog Datei auswählen.\n\nLeider ist momentan nur eine weiter Sprache zur Auswahl vorhanden, was sich aber in Zukunft ändern wird (soll).")
  75.     (set #text-main "\nWollen Sie die GIF-Toolkit Hauptdatei installieren?")
  76.     (set #text-docs "\nWollen Sie die GIF-Toolkit Dokumentation installieren?")
  77.     (set #text-cat "\nWollen Sie die GIF-Toolkit Catalogdateien installieren?")
  78.     (set #imain-help "Hier wird das Programm GIF-Toolkit installiert.")
  79.     (set #idocs-help "Hier wird die Dokumentation, deren Studium Ihnen empfohlen wird, installiert.")
  80.     (set #icat-help "Hier können Sie andere Sprachen, als die einprogrammierte, englische Sprache auswählen.")
  81.     (set default_language 2)
  82.     )
  83. )
  84. ;===[ Italian Documentation]==================================================
  85. ; ***************** Translated by Francesco Mancuso *****************
  86. (if (= @language "italiano")
  87.     (
  88.     (set #install-start
  89.     (cat
  90.         "\nBenvenuti al proramma d'installazione di GIF-Toolkit !\n\n"
  91.         "Questo script installa GIF-Toolkit sul vostro Amiga.\n"
  92.         "GIF-Toolkit é SHAREWARE. Per usarlo dovete registrarvi.\n"
  93.         "Leggete la documentazione per ulteriori informazioni.\n\n"
  94.         "© 1996 by Stephan Schupfer\n"
  95.         "Tutti i diritti riservati\n"
  96.         )
  97.     )
  98. (set #install-exit
  99.     (cat
  100.         "Grazie per aver installato GIF-Toolkit ...\n"
  101.         "... e ricordate: non dimenticatevi di registrarvi."
  102.         )
  103.     )
  104. (set #bad-kick "Dovete utilizzare la Kickstart 2.0 o superiore per installare GIF-Toolkit\n\n\n")
  105. (set #GIF-Toolkit-dir "\nDove desiderate copiare la directory GIF-Toolkit?")
  106. (set #GIF-Toolkit-docs "\nSelezionate la documentazione")
  107. (set #GIF-Toolkit-doc "\nInstalla la documentazione")
  108. (set #GIF-Toolkit-cats "\nSelezionate il catalog")
  109. (set #GIF-Toolkit-cat "\nInstalla catalog")
  110. (set #Copy-main "\nInstalla il programma GIF-Toolkit")
  111. (set #Copy-docs "\nInstalla la documentazione di GIF-Toolkit")
  112. (set #icons-help "Questa opzione é per coloro che hanno installato MagicWB.\n\nInvece di copiare le icone MagicWB icons sulle icone originali, potete selezionare MagicWB qui, e una speciale serie di icone, disegnate proprio per GIF-Toolkit saranno installate.\n\nNOTA: MagicWB é Copyright © 1992-1994 di Martin Huttenloher.")
  113. (set #docs-help "La documentazione di GIF-Toolkit:\n\n * Documentazione in formato AmigaGuide.\n    Leggete questo documento per più informazioni su GIF-Toolkit\n * Modulo per Ordinare\n    Usate questo per registrarvi a GIF-Toolkit.")
  114. (set #cat-help "La lingua standard di GIF-Toolkit é l'inglese.\n\Potete installare il catalog per la lingua italiana,\nper poter usare GIF-Toolkit in italiano.\n\n.")
  115. (set #text-main "\nVolete installare il programma GIF-Toolkit?")
  116. (set #text-docs "\nVolete installare la documentazione di GIF-Toolkit?")
  117. (set #text-cat "\nVolete installare il catalogo di GIF-Toolkit?")
  118. (set #imain-help "Questo installa il programma GIF-Toolkit.")
  119. (set #idocs-help "Questo installa la documentazione, che vi raccomandiamo di leggere.")
  120. (set #icat-help "Qui potete selezionare le altre lingue diverse da quella inglese.")
  121. (set default_language 3)
  122. ))
  123. ;============================== VARS ================================
  124. (set sPath (expandpath (pathonly @icon)))
  125. (set sourcePath (cat sPath "//"))
  126.  
  127. ;============================== PROGRAM-START================================
  128.  
  129. (complete 0)
  130. (set @default-dest "")
  131. ; Check Kickstart (>= v2.0) Version.
  132. (if (< (/ (getversion) 65536) 37)
  133.     (abort #bad-kick)
  134. )
  135. (message #install-start)
  136.  
  137. (welcome)
  138.  
  139. ;Ask for directory
  140. (set m-dest (askdir (prompt #GIF-Toolkit-dir)
  141.     (help @askdir-help)
  142.     (default "SYS:")
  143.     )
  144. )
  145. (complete 10)
  146. (procedure install-main
  147. ; Install GIF-Toolkit main
  148. (makedir (tackon m-dest "GIF-Toolkit") (infos))
  149. (set main-dest (tackon m-dest "GIF-Toolkit/"))
  150. (copyfiles (source (tackon sourcePath "GIFToolkit"))
  151.     (prompt #Copy-main)
  152.     (dest main-dest)
  153.     (infos)
  154.     )
  155. )
  156. (if (< @user-level 2)
  157.     (install-main)
  158.     (if (askbool 
  159.         (prompt #text-main)
  160.         (help #imain-help)
  161.         )
  162.         (install-main)
  163.         )
  164.     )
  165. (complete 40)
  166. (procedure install-docs
  167. ; Install GIF-Toolkit Docs
  168. (set docum (askoptions (prompt #GIF-Toolkit-docs)
  169.     (help #docs-help)
  170.     (choices "English"
  171.              "Deutsch"
  172.                            ;      "Italiano"
  173.     )
  174.     (default default_language)
  175.     )
  176. )
  177. (set n 0)
  178. (while (set docu (select n "English"
  179.                      "Deutsch"
  180.                     ;     "Italiano"
  181.                            ""))
  182. (
  183.     (if (in docum n)
  184.         (
  185.             (copyfiles (source (tackon sourcePath (cat "Docs/" docu )))
  186.                 (dest main-dest)
  187.                 (infos)
  188.                 (all)
  189.                 )
  190.         )
  191.     )
  192.     (set n (+ n 1))
  193.     )
  194. )
  195. )
  196. (if (< @user-level 2)
  197.     (install-docs)
  198.     (if (askbool 
  199.         (prompt #text-docs)
  200.         (help #idocs-help)
  201.         )
  202.         (install-docs)
  203.         )
  204.     )
  205. (complete 70)
  206. ; Install GIF-Toolkit catalog
  207. (procedure install-catalog
  208. (set a (- default_language 1))
  209. (set catalogs (askoptions (prompt #GIF-Toolkit-cats)
  210.     (help #cat-help)
  211.     (choices "Deutsch"
  212.             "Italiano"
  213.              )
  214.     (default a)
  215.     )
  216. )
  217. (set n 0)
  218. (while (set catalog (select n "Deutsch"
  219.                     "Italiano"
  220.                               ""))
  221.     (
  222.     (if (in catalogs n)
  223.         (
  224.             (copyfiles (source (tackon sourcePath (tackon "Catalogs" (tackon catalog "GIFToolkit.catalog"))))
  225.                 (prompt #GIF-Toolkit-cat)
  226.                 (dest (cat "LOCALE:Catalogs/" catalog))
  227.                 (noposition)
  228.                 )
  229.         )
  230.     )
  231.     (set n (+ n 1))
  232.     )
  233. )
  234. )
  235. (if (< @user-level 2)
  236.     (install-catalog)
  237.     (if (askbool 
  238.         (prompt #text-cat)
  239.         (help #icat-help)
  240.         )
  241.         (install-catalog)
  242.         )
  243.     )
  244. (complete 100)
  245. (exit #install-exit)
  246.